'              *** Binär - Hexadezimal / Dezimal - Wandlung ***
'              *                                              *
'              *          © 1990 by Michael Gottwald          *
'              ************************************************

        DEFDBL dez,Ldez,HighWort:PRINT "Maximal 32 Bits !":PRINT
Eingabe: INPUT "Binärzahl ";b$:IF b$="" OR LEN(b$)<2 THEN Eingabe
          FOR i%=LEN(b$) TO 1 STEP -1:z$=MID$(b$,i%,1)
           IF z$="1" THEN dez=dez+2^e:e=e+1
            IF z$="0" THEN e=e+1
             NEXT:IF e>32 THEN PRINT "Mehr als 32 Bits !!!":END
            IF e>16 THEN Langwort
           h$=HEX$(dez):h$="$"+STRING$(4-LEN(h$),"0")+h$
Ausgabe:  PRINT:PRINT "%";b$;"  =  ";dez;"  =  ";h$:PRINT
         PRINT "Das ist eine";e;CHR$(8);"-Bit-Zahl";
        IF e=4 THEN PRINT " (Nibble);
       IF e=8 THEN PRINT " (Byte)";
      IF e=16 THEN PRINT " (Wort)";
     IF e=32 THEN PRINT " (Langwort)";
    PRINT ".":END   

Langwort: Ldez=-(5.46559e-315-dez):LowWort=Ldez AND 65535:Low$=HEX$(LowWort)
         IF LEN(Low$)<4 THEN Low$=STRING$(4-LEN(Low$),"0")+Low$
        HighWort=Ldez AND -65536
       HighWort%=HighWort/65536:High$=HEX$(HighWort%)
      IF LEN(High$)<4 THEN High$=STRING$(4-LEN(High$),"0")+High$
     h$="$"+High$+Low$:GOTO Ausgabe